Pascal forthe MAX512 


B.v. Berg 


The MAX 512 is a simple triple digital-to-analogue converter with 
a serial interface and a resolution of eight bits. Two of the three 
converters (DAC A and DAC B) provide a unipolar or bipolar 
buffered output voltage. Converter A can provide or sink currents 
of up to 5 mA, and B currents of up to 0.5 mA. Converter C is 
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intended for accurate applications and therefore has an unbuffered 
output. The reference voltages are applied separately (in contrast 
to the diagram) to converters A /B and C. A part from the converter 
outputs, the M AX 512 also has a digital output (1.6 mA) which, for 
instance, may be used for directly driving a high-efficiency LED. 
The data is applied to the converter via a 3-wire interface. The 
interface operates with frequencies up to 5 M Hz and is compati- 
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ble with standards such as SPI, QSPI, and M icrowire. 

The serial shift register at the input is 16 bits wide: eight data 
bits and eight control bits. The latter enable a converter to be 
selected or switched off. In the shutdown mode, the R 2R network 
of the relevant converter is isolated from the reference source. The 
DAC registers may be charged at the leading edge of CS either 
independently of one another or simultaneously. 

TheMAX512 may be operated from asingle+5V supplyora 
symmetrical + 2.5 V supply. It draws a current of about 1 mA and 
<1 yA in the shutdown mode. 

The compact and well-documented Pascal program shows 
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clearly how one can work with the M AX 512. Serial lines D y, Chip- 
Select, CS, clock signal SCLK, and RESET are then to be con- 
nected to ports P 4.0-P 4.3 of an 87537 processor, but other devices 
may also be used for controlling the process. It may then be nec- 
essary to adapt the port addresses at the start of the program. 
After the program has been started, all three converters gen- 
erate a five-step staircase voltage at a frequency of about 5 Hz. By 
introducing variations in the FOR loop that determines the length 
of the steps, the voltage steps may be altered. The software is avail- 
able from the Publishers (O rder no. 996022) but it should be noted 
that the commentary is in German. [994103] 
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program seri dau; 








const DIN = $E8; (* Serial data line on Port P40 * 
CS = $E9; (* Serial Cini Selecr Tine on Pore pull = 
SCLK = $EA; (* Serial Clock line on Port P42 * 
RESET = $EB; (* Reset input of DAU on Port P43 * 
procedure init _dau; G Bus Iie deirawl is = 
begin 
setbit(CsS); (* Off state of serial Bus: * 
clearbit(SCLK); (* CS\=HI GH, SCLK=LOW, RESET\=HI GH * 
setbit( RESET); (* and level of DIN does not matter! * 
end; 
procedure reset dau; (* D/A converter basic settings * 
( clear = 
begin 
clearbit( RESET); (* Pull Reset line to active state, * 
Setbit( RESET); (* to load all registers with their * 
end; (* default values! * 
procedure rausbytes(control,data: byte); (* Serial transmission of 2 Bytes, * 
(* always MSB first, LSB last * 
war PEGEL, Weller, i byte; 
begin 
clearbit(CS); (* Start condition of serial Ds, CS=LOW * 
Teiler := 128; (* Mask, with 1st iteration for MSB * 
ror Pocito 8 do (* Loop for transmission of * 
begin (* riese & data its (Comer, yee) = 
PEGEL: =control and TEILER; S WASE or ouler 7 Bits ~ 
if (PEGEL>=1) then setbit(DIN) else clearbit( DIN); 
setbit(SCLK); (* Depending on bit level, build data line * 
clearbit(SCLK); (* ame abaly clock pulse to clock lime ~ 
TELLER: STEILER aiw 2 (* New mask! * 


end; 
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Teiler := 128; (* Mask, with Ist iteration for MSB 
ror feel to 8 do (* Loop for transmission of 
begin (* second 8 data bits (Data Byte) 
PEGEL: =data and TEILER; (* Mask off other 7 Bits 
if (PEGEL>=1) then setbit(DIN) else clearbit(DIN) 
setbit(SCLK); (* Depending on bit level, build data line 
clearbit(SCLK); (* and apply clock pulse to clock line 
Wel Lewes Sellen GY 2 (* New mask 
end; 
set bit(CS); (* Stop condition of serial Ds, CS=HIGH 
end; 
procedure treppe(kanal: byte); (* Generate sawtooth on channel 
(* 1->channel A, 2->channel B, 3->channel C or 
(* 0->on all three channels! 
var kontrollbyte : byte; (* Aux. variable for channel info 
; 2 Oye; (* Loop variable 
begin 
case kanal of 
0 : kontroll byte: =%00000111; (* Load all Registers, shut down none 
1: kontroll byte: =%00110001; (* Load Reg. A only, shut down channel B & C 
2 : kontroll byte: =%00101010; (* Load Reg. B only, shut down channel A & C 
3 : kontroll byte: =%00001100; (* Load Reg. C only, shut down channel A & B 
end; 
for i:=0 to 4 do (* Loop var. = 4 -> staircase w. 5 steps 
rausbytes(kontroll byte, (i*50)); 
end; 
begin 
reset dau; (* Reset serial D/A converter 
init dau; (* Initialise serial D/A converter 
repeat (* Endless loop, create periodic staircase voltage 
treppe(0); (* Show starircase on all three channels 
until false; 


end. 


* He k 


eH HH 


* k KH 





